﻿Public Class xtf_LISTADOasientoconcepto_

    Public Overrides Sub IniciarLista()
        Try
            gdc_general.BeginUpdate()
            gdv_general.BeginDataUpdate()
            gdv_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Nombre")
            dtt_DataTable.Columns.Add("Nombre corto")


            gdv_general.PopulateColumns(dtt_DataTable)


            Dim obj_asientoconcepto_ As New cls_asientoconcepto_
            If obj_asientoconcepto_.CargarTodos(ObtenerRegistroEstado) Then
                For Each asientoconcepto As cls_asientoconcepto_ In obj_asientoconcepto_.Items
                    AgregarItem(asientoconcepto)
                Next
            End If

            'ulg_Lista.DataBind()

            FiltrarColumnas()



            gdv_general.EndUpdate()
            gdv_general.EndDataUpdate()
            gdc_general.EndUpdate()
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub



    Public Function AgregarItem(ByRef asientoconcepto As cls_asientoconcepto_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow

        Row("Identificador (ID)") = asientoconcepto.idasientoconcepto
        Row("Nombre") = asientoconcepto.nombre
        Row("Nombre corto") = asientoconcepto.nombrecorto

        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1) = asientoconcepto.Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef asientoconcepto As cls_asientoconcepto_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = asientoconcepto.idasientoconcepto

        ulg_row("Nombre") = asientoconcepto.nombre
        ulg_row("Nombre corto") = asientoconcepto.nombrecorto

    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()

        PERMISONuevo = "001027002"
        PERMISOModificar = "001027003"
        PERMISOEliminar = "001027004"
        PERMISOImprimir = "001027005"

        Me.Text = lbl_modulo.Text : lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        IniciarLista()
        Me.Cursor = Cursors.Default
    End Sub

End Class